home *** CD-ROM | disk | FTP | other *** search
(*************************************************** Ant Movie Catalog importation script www.antp.be/software/moviecatalog/ [Infos] Authors=berserkme Title=berserkme Description=berserkme (FR) descriptif et image Site=http://www.berserkme.com Language=FR Version= Requires=3.5.0 Comments= basΘ sur le code de cinefil (Danone kid) License=This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. | GetInfo=1 [Options] ***************************************************) program berserkme; var MovieName: string; procedure AnalyzePage(Address: string); var Page: TStringList; LineNr: Integer; Line,page_film,titre_film, realisateur_film, annee_film: string; BeginPos, EndPos: Integer; begin //vide la liste des films PickTreeClear; //charge la page Line := GetPage(Address); //teste si il y a des films trouvΘs BeginPos := Pos('Aucun film trouv', Line); if BeginPos <> 0 then begin showmessage('Aucun film trouvΘ !'); exit; end; //teste si il n'y a pas qu'un seul film // BeginPos := Pos('FILMS TROUV╔S', Line); // if BeginPos = 0 then // begin // AnalysePageFilm(Address); // exit; // end; //supprime tout le code avant la liste des films // BeginPos := Pos('<B>ANN╔E</B>', Line); // Delete(Line, 1, BeginPos-1); repeat //cherche le lien de la page du film BeginPos := Pos('<a href="details.asp?ref=',Line); Delete(Line, 1, BeginPos+8); EndPos := Pos('">',Line); page_film := 'http://www.berserkme.com/amc/' + Copy(Line, 1, EndPos-1 ); //cherche le nom du film BeginPos := Pos('">',Line); Delete(Line, 1, BeginPos+1); EndPos := Pos('</a><br>',Line)-1; titre_film := Copy(Line, 1, EndPos ); HTMLdecode(titre_film); HTMLremovetags(titre_film); titre_film := StringReplace(titre_film, #13#10, ''); titre_film := StringReplace(titre_film, ' ', ''); titre_film := Trim(titre_film); titre_film := AnsiLowerCase(titre_film); titre_film := AnsiUpFirstLetter(titre_film); //ajoute les films PickTreeAdd(titre_film , page_film); //cherche le lien de la page du film BeginPos := Pos('href="details.asp?ref=',Line); until BeginPos = 0; begin if PickTreeExec(Address)=true then AnalysePageFilm(Address); end; end; //------------------------------------------------------------------------------ // ANALYSE DE LA PAGE DU FILM //------------------------------------------------------------------------------ procedure AnalysePageFilm(Address: string); var Line,page_film,titre_film,titre_original, categorie_film, realisateur_film, annee_film: string; pays_film, duree_film, acteurs_film, liste_acteurs, description_film, reference_film,public_film,video_film,audio_film,fichier_image:string; BeginPos, EndPos: Integer; begin //charge la page Line := GetPage(Address); //cherche le nom du film BeginPos := Pos('titre:', Line); Delete(Line, 1, BeginPos+5); EndPos := Pos('<br>',Line)-1; titre_film := Copy(Line, 1, EndPos ); HTMLdecode(titre_film); titre_film := StringReplace(titre_film, #13#10, ''); titre_film := StringReplace(titre_film, ' ', ''); titre_film := Trim(titre_film); titre_film := AnsiLowerCase(titre_film); titre_film := AnsiMixedCase(titre_film, ' '); titre_film := AnsiMixedCase(titre_film, '-'); //cherche la description BeginPos := Pos('descriptif', Line); Delete(Line, 1, BeginPos+12); EndPos := Pos('<br>',Line)-1; description_film := Copy(Line, 1, EndPos ); HTMLdecode(description_film); description_film := StringReplace(description_film, #13#10, ''); description_film := StringReplace(description_film, ' ', ''); //cherche le titre original //BeginPos := Pos('Titre Original : "', Line); //Delete(Line, 1, BeginPos+17); //EndPos := Pos('"</FONT>',Line)-1; //titre_original := Copy(Line, 1, EndPos ); //HTMLdecode(titre_original); //titre_original := StringReplace(titre_original, #13#10, ''); //titre_original := StringReplace(titre_original, ' ', ''); //titre_original := Trim(titre_original); //titre_original := AnsiLowerCase(titre_original); //titre_original := AnsiMixedCase(titre_original, ' '); //titre_original := AnsiMixedCase(titre_original, '-'); //cherche l'annΘe BeginPos := Pos('annΘe:', Line); Delete(Line, 1, BeginPos+6); EndPos := Pos('<br>',Line)-1; annee_film := Copy(Line, 1, EndPos ); HTMLdecode(annee_film); annee_film := StringReplace(annee_film, #13#10, ''); annee_film := StringReplace(annee_film, ' ', ''); annee_film := Trim(annee_film); //cherche le pays BeginPos := Pos('pays:', Line); Delete(Line, 1, BeginPos+6); EndPos := Pos('<br>',Line)-1; pays_film := Copy(Line, 1, EndPos ); HTMLdecode(pays_film); pays_film := StringReplace(pays_film, #13#10, ''); pays_film := StringReplace(pays_film, ' ', ''); pays_film := Trim(pays_film); HTMLremovetags(pays_film); pays_film := AnsiLowerCase(pays_film); pays_film := AnsiMixedCase(pays_film, ' '); pays_film := AnsiMixedCase(pays_film, '-'); //cherche la catΘgorie BeginPos := Pos('genre:', Line); Delete(Line, 1, BeginPos+7); EndPos := Pos('<br>',Line)-1; categorie_film := Copy(Line, 1, EndPos ); HTMLdecode(categorie_film); categorie_film := StringReplace(categorie_film, #13#10, ''); categorie_film := StringReplace(categorie_film, ' ', ''); categorie_film := Trim(categorie_film); categorie_film := AnsiLowerCase(categorie_film); categorie_film := AnsiMixedCase(categorie_film, ' '); categorie_film := AnsiMixedCase(categorie_film, '-'); //cherche le rΘalisateur BeginPos := Pos('rΘalisateur:', Line); Delete(Line, 1, BeginPos+12); EndPos := Pos('<br>',Line)-1; realisateur_film := Copy(Line, 1, EndPos ); HTMLdecode(realisateur_film); realisateur_film := StringReplace(realisateur_film, #13#10, ''); realisateur_film := StringReplace(realisateur_film, ' ', ''); realisateur_film := Trim(realisateur_film); realisateur_film := AnsiLowerCase(realisateur_film); realisateur_film := AnsiMixedCase(realisateur_film, ' '); realisateur_film := AnsiMixedCase(realisateur_film, '-'); repeat //cherche les acteurs BeginPos := Pos('acteurs:', Line); Delete(Line, 1, BeginPos+9); EndPos := Pos('<br>',Line)-1; acteurs_film := Copy(Line, 1, EndPos ); HTMLdecode(acteurs_film); acteurs_film := StringReplace(acteurs_film, #13#10, ''); acteurs_film := StringReplace(acteurs_film, ' ', ''); acteurs_film := Trim(acteurs_film); acteurs_film := AnsiLowerCase(acteurs_film); acteurs_film := AnsiMixedCase(acteurs_film, ' '); acteurs_film := AnsiMixedCase(acteurs_film, '-'); BeginPos := Pos('acteurs:', Line); if BeginPos = 0 then liste_acteurs := liste_acteurs + acteurs_film; if BeginPos <> 0 then liste_acteurs := liste_acteurs + acteurs_film + ', '; until BeginPos = 0; //quel type de public BeginPos := Pos('public:', Line); Delete(Line, 1, BeginPos+6); EndPos := Pos('<br>',Line)-1; public_film := Copy(Line, 1, EndPos ); HTMLdecode(public_film); public_film := StringReplace(public_film, #13#10, ''); public_film := StringReplace(public_film, ' ', ''); public_film := Trim(public_film); public_film := AnsiLowerCase(public_film); public_film := AnsiMixedCase(public_film, ' '); public_film := AnsiMixedCase(public_film, '-'); //chargement des jaquettes BeginPos := Pos('<img src="../base/imgpromo/', Line); if BeginPos <> 0 then begin Delete(Line, 1, BeginPos+26); EndPos := Pos('">',Line)-1; fichier_image := 'http://www.berserkme.com/base/imgpromo/' + Copy(Line, 1, EndPos ); GetPicture(fichier_image); end; //cherche le format video BeginPos := Pos('video:', Line); Delete(Line, 1, BeginPos+7); EndPos := Pos('<br>',Line)-1; video_film := Copy(Line, 1, EndPos ); HTMLdecode(video_film); video_film := StringReplace(video_film, #13#10, ''); video_film := StringReplace(video_film, ' ', ''); video_film := Trim(video_film); video_film := AnsiLowerCase(video_film); video_film := AnsiMixedCase(video_film, ' '); video_film := AnsiMixedCase(video_film, '-'); //cherche le format audio BeginPos := Pos('audio:', Line); Delete(Line, 1, BeginPos+7); EndPos := Pos('<br>',Line)-1; audio_film := Copy(Line, 1, EndPos ); HTMLdecode(audio_film); audio_film := StringReplace(audio_film, #13#10, ''); audio_film := StringReplace(audio_film, ' ', ''); audio_film := Trim(audio_film); audio_film := AnsiLowerCase(audio_film); audio_film := AnsiMixedCase(audio_film, ' '); audio_film := AnsiMixedCase(audio_film, '-'); //charge les rΘsultats dans la fenΩtre SetField( fieldTranslatedTitle,titre_film); SetField( fieldOriginalTitle,titre_original); if titre_original = '' then begin SetField( fieldOriginalTitle,titre_film); end; SetField( fieldCategory,categorie_film ); SetField( fieldDirector,realisateur_film); SetField( fieldYear,annee_film); SetField( fieldCountry,pays_film); //SetField( fieldLength,duree_film); SetField( fieldActors,liste_acteurs); SetField( fieldDescription,description_film); SetField( fieldURL,'http://www.berserkme.com'); SetField( fieldcomments,public_film); SetField( fieldVIDEOFORMAT,video_film); SetField( fieldAUDIOFORMAT,audio_film); //DisplayResults; end; begin if CheckVersion(3,5,0) then begin MovieName := GetField(fieldOriginalTitle); if MovieName = '' then MovieName := GetField(fieldTranslatedTitle); if Input('Berserkme avec image', 'Entrez le titre du film :', MovieName) then begin //remplace les caractΦres accentuΘs MovieName:= AnsiLowerCase(MovieName); MovieName:= StringReplace(MovieName, 'Θ', 'e'); MovieName:= StringReplace(MovieName, 'Φ', 'e'); MovieName:= StringReplace(MovieName, 'α', 'a'); MovieName:= StringReplace(MovieName, 'τ', 'c'); MovieName:= StringReplace(MovieName, '∙', 'u'); MovieName := 'http://www.berserkme.com/amc/question.asp?titre='+ UrlEncode(MovieName); AnalyzePage(MovieName); end; end else ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 3.5.0)'); end. 
